home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / asppw112 / deletefi.asp < prev    next >
Encoding:
Text File  |  1999-01-07  |  781 b   |  34 lines
  1. <HTML><BODY>
  2. <%
  3.     'Method: DeleteFile(strFilePathName)
  4.     '
  5.     'Sample Operation:
  6.     'Delete sample file sample.txt.
  7.  
  8.     sFilePathName  = "c:\sample.txt"
  9.  
  10.     response.write "File """ & sFilePathName &  """ to be deleted.<br>"
  11.  
  12.     Set oFDMgt   = Server.CreateObject("ASPPW.FDMgt")
  13.     iReturnCode  = oFDMgt.DeleteFile (sFilePathName)
  14.  
  15.     select case iReturnCode
  16.         case    1:  response.write "Operation succeeds. <br>"
  17.         case    0:  response.write "Operation failed since """ & sFilePathName & """ was not found."
  18.         case   -1:  response.write "Operation failed. "
  19.         case else:
  20.     end select
  21.  
  22.     if oFDMgt.GetLastErrNum <> 0 then
  23.         response.write  oFDMgt.GetLastErrDescription
  24.     end if
  25.  
  26.     Set oFDMgt = Nothing
  27. %>
  28. </BODY></HTML>
  29.  
  30.  
  31.  
  32.  
  33.  
  34.